RmDir procedure

  DECLARATION:  RmDir(S : String);

      PURPOSE:  Removes an empty subdirectory

         UNIT:  System

      REMARKS:  The string, S must specify a valid pathname of an empty
                subdirectory.  S may not be the currently logged directory.

                NOTE: With {$I-}, errors are returned through IOResult